use warnings;
use strict;


my $var;
my @arr;
my %hash;
my $tmp;

open FILE, "+>>a.txt";
seek FILE,0,0;

$tmp = tell FILE;
print "tmp $tmp\n";


#while(($tmp = getc FILE)) {
#	print $tmp;
#}

my $num = read FILE,$tmp,3;
print "$tmp**n";
print "55$num";

#print FILE "44";
#@arr = <FILE>;
close (FILE);
#rename ("a.txt", "D:/e.txt");
#print @arr;